home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / os2 / pccts.zip / FACT.SC < prev    next >
Text File  |  1992-12-08  |  149b  |  12 lines
  1. main(n)
  2. {
  3.         print fact(n);
  4.         print "\n";
  5. }
  6.  
  7. fact(n)
  8. {
  9.         if ( n == "0" ) return "1";
  10.         return n * fact(n - "1");
  11. }
  12.